$INCLUDE: 'C:\FG\FASTGRAF.FI'

      PROGRAM MAIN

      INTEGER MAXX
      INTEGER MAXY
      INTEGER MODE
      INTEGER FG_GETMAXX, FG_GETMAXY, FG_GETMODE

      CALL FG_INITPM
      MODE = FG_GETMODE()
      CALL FG_SETMODE(19)

      MAXX = FG_GETMAXX()
      MAXY = FG_GETMAXY()

      CALL FG_SETMODE(MODE)
      CALL FG_RESET
      WRITE(6,1000) MAXX, MAXY

      STOP ' '
1000  FORMAT(' (',I3,',',I3,')')
      END
